
Sub ALI_HARD()

With CreateObject("Scripting.FileSystemObject")

MsgBox Hex(.Drives.Item("c:").SerialNumber)

End With

End Sub


Private Sub Workbook_Open()

With CreateObject("Scripting.FileSystemObject")

If Hex(.Drives.Item("c:").SerialNumber) = "C3ED3253" Then

MsgBox "hello"

Else: MsgBox "sorry this program for another "

ThisWorkbook.Close savechanges = True

End If

End With

End Sub

